IF UsernaMe$=LEFT$(ABCS$(Dzz),UsernaMe) THEN Lmn=5:Dab=Dzz
IF Dzz=Dxq AND Lmn<>5 THEN Lmn=2
WEND
IF Lmn=5 THEN Ddt=5:GetUserID$=RIGHT$(ABCS$(Dab),LEN(ABCS$(Dab))-UsernaMe)
IF Lmn=2 AND Dch=5 THEN Ddt=3
CLOSE#3
WEND
IF Ddt=3 THEN a$=r$+"No Such User.":GOSUB Modem:GOTO UserEdit
GetUserID=VAL(GetUserID$)
MoreGetUser:
IF detedt=1 THEN a$=r$+"Enter User's ID:":GOSUB A1:IF LEFT$(t$,1)=CHR$(10) OR LEFT$(t$,1)=CHR$(13) THEN UserEdit
IF detedt=1 THEN GetUserID$=LEFT$(t$,LEN(t$)-1):GetUserID=VAL(t$)
CLOSE#4:OPEN "R", #4, "df1:USER",120
FIELD #4, 1 AS check$,9 AS N1$,15 AS N2$,10 AS Co$,15 AS Adr$,10 AS CI$,10 AS STA$,3 AS AG$,9 AS PAS$,3 AS B1$,3 AS B2$,3 AS B3$,3 AS B4$,3 AS B5$,3 AS B6$,3 AS B7$,3 AS B8$,3 AS B9$,1 AS EM1$,1 AS EM2$,1 AS EM3$,1 AS EM4$,1 AS EM5$,3 AS Valu$
FIELD #4, 117 AS dump$,1 AS Vte1$,1 AS Vte2$,1 AS Vte3$
a$=r$+"Change which option (1-27):":GOSUB A1:IF LEFT$(t$,1)=CHR$(10) OR LEFT$(t$,1)=CHR$(13) THEN UserEdit
lable=VAL(t$):IF lable<1 OR lable>27 THEN UserEdit
IF lable=9 THEN ValidChangeUser
a$=r$+"Change to:":GOSUB A1:IF LEFT$(t$,1)=CHR$(10) OR LEFT$(t$,1)=CHR$(13) THEN UserEdit
MoreChangeUser:
IF lable=1 THEN GetName1$=UCASE$(LEFT$(t$,LEN(t$)-1))
IF lable=2 THEN GetName2$=UCASE$(LEFT$(t$,LEN(t$)-1))
IF lable=3 THEN GetAddr$=UCASE$(LEFT$(t$,LEN(t$)-1))
IF lable=4 THEN GetCity$=UCASE$(LEFT$(t$,LEN(t$)-1))
IF lable=5 THEN GetState$=UCASE$(LEFT$(t$,LEN(t$)-1))
IF lable=6 THEN GetComp$=UCASE$(LEFT$(t$,LEN(t$)-1))
IF lable=7 THEN GetAge$=LEFT$(t$,LEN(t$)-1)
IF lable=8 THEN GetPass$=UCASE$(LEFT$(t$,LEN(t$)-1))
IF lable=10 THEN GetB1$=UCASE$(LEFT$(t$,LEN(t$)-1))
IF lable=11 THEN GetB2$=UCASE$(LEFT$(t$,LEN(t$)-1))
IF lable=12 THEN GetB3$=UCASE$(LEFT$(t$,LEN(t$)-1))
IF lable=13 THEN GetB4$=UCASE$(LEFT$(t$,LEN(t$)-1))
IF lable=14 THEN GetB5$=UCASE$(LEFT$(t$,LEN(t$)-1))
IF lable=15 THEN GetB6$=UCASE$(LEFT$(t$,LEN(t$)-1))
IF lable=16 THEN GetB7$=UCASE$(LEFT$(t$,LEN(t$)-1))
IF lable=17 THEN GetB8$=UCASE$(LEFT$(t$,LEN(t$)-1))
IF lable=18 THEN GetB9$=UCASE$(LEFT$(t$,LEN(t$)-1))
IF lable=19 THEN GetE1$=UCASE$(LEFT$(t$,LEN(t$)-1))
IF lable=20 THEN GetE2$=UCASE$(LEFT$(t$,LEN(t$)-1))
IF lable=21 THEN GetE3$=UCASE$(LEFT$(t$,LEN(t$)-1))
IF lable=22 THEN GetE4$=UCASE$(LEFT$(t$,LEN(t$)-1))
IF lable=23 THEN GetE5$=UCASE$(LEFT$(t$,LEN(t$)-1))
IF lable=24 THEN GetChk$=UCASE$(LEFT$(t$,LEN(t$)-1))
IF lable=25 THEN GetVte1$=LEFT$(t$,1)
IF lable=26 THEN GetVte2$=LEFT$(t$,1)
IF lable=27 THEN GetVte3$=LEFT$(t$,1)
GOSUB ShowUserInfo:GOTO UserEdit
ValidChangeUser:
a$=r$+"1)New User:000":GOSUB Modem
a$=r$+"2)Validated User:007":GOSUB Modem
a$=r$+"3)Assistant Sysop:014":GOSUB Modem
a$=r$+"4)Sysop:021":GOSUB Modem
a$=r$+" Which Level (1-4):":GOSUB A1:MenS$=LEFT$(t$,1)
IF MenS$="1" THEN GetVaru$="000":GOSUB ShowUserInfo:GOTO UserEdit
IF MenS$="2" THEN GetVaru$="007":GOSUB ShowUserInfo:GOTO UserEdit
IF MenS$="3" THEN GetVaru$="014":GOSUB ShowUserInfo:GOTO UserEdit
IF MenS$="4" THEN GetVaru$="021":GOSUB ShowUserInfo:GOTO UserEdit
GOTO ValidChangeUser
SaveUser:
CLOSE#4:OPEN "R", #4, "df1:USER",120
FIELD #4, 1 AS check$,9 AS N1$,15 AS N2$,10 AS Co$,15 AS Adr$,10 AS CI$,10 AS STA$,3 AS AG$,9 AS PAS$,3 AS B1$,3 AS B2$,3 AS B3$,3 AS B4$,3 AS B5$,3 AS B6$,3 AS B7$,3 AS B8$,3 AS B9$,1 AS EM1$,1 AS EM2$,1 AS EM3$,1 AS EM4$,1 AS EM5$,3 AS Valu$
FIELD #4, 117 AS dump$,1 AS Vte1$,1 AS Vte2$,1 AS Vte3$
FIELD #4, 1 AS check$,9 AS N1$,15 AS N2$,10 AS Co$,15 AS Adr$,10 AS CI$,10 AS STA$,3 AS AG$,9 AS PAS$,3 AS B1$,3 AS B2$,3 AS B3$,3 AS B4$,3 AS B5$,3 AS B6$,3 AS B7$,3 AS B8$,3 AS B9$,1 AS EM1$,1 AS EM2$,1 AS EM3$,1 AS EM4$,1 AS EM5$,3 AS Valu$
FIELD #4, 117 AS dump$,1 AS Vte1$,1 AS Vte2$,1 AS Vte3$
FIELD #4, 1 AS check$,9 AS N1$,15 AS N2$,10 AS Co$,15 AS Adr$,10 AS CI$,10 AS STA$,3 AS AG$,9 AS PAS$,3 AS B1$,3 AS B2$,3 AS B3$,3 AS B4$,3 AS B5$,3 AS B6$,3 AS B7$,3 AS B8$,3 AS B9$,1 AS EM1$,1 AS EM2$,1 AS EM3$,1 AS EM4$,1 AS EM5$,3 AS Valu$
FIELD #4, 117 AS dump$,1 AS Vte1$,1 AS Vte2$,1 AS Vte3$
(.txt)